10 if TR(1)=1 goto 30
20 goto 10
30 print "SWITCH 1 IS ON"
:return ;run 
